home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / pc / starware.exe / starware.DXR / 00007_TCBTN.PIC.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  585 b   |  24 lines
  1. on mouseDown
  2.   global movieStarting, cdAnimating, movieNumber
  3.   puppetSound("mouse down")
  4.   set variable to the clickOn
  5.   set oldLocV to the locV of sprite variable
  6.   set newLocV to oldLocV + 2
  7.   set the locV of sprite variable to newLocV
  8.   set oldLocH to the locH of sprite variable
  9.   set newLocH to oldLocH + 2
  10.   set the locH of sprite variable to newLocH
  11.   repeat while the stillDown
  12.     updateStage()
  13.   end repeat
  14.   puppetSound(0)
  15.   updateStage()
  16.   set movieStarting to 1
  17.   set movieNumber to 2
  18.   if cdAnimating = 1 then
  19.     go("Movie2Frame1")
  20.   else
  21.     go("Movie2")
  22.   end if
  23. end
  24.